program Project1; // Zadanie 3.18

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  ilosc_liczb = 5;

var
  i, liczba, suma, min, max : Integer;

begin
  Writeln('Program losuje ', ilosc_liczb, ' liczb calkowitych z przedzialu od 0 do 99,');
  Writeln('a nastepnie znajduje najmniejsza i najwieksza oraz');
  Writeln('oblicza srednia ze wszystkich wylosowanych liczb.');
  suma := 0;
  i := 1;

  Randomize();
  min := Random(100);
  Writeln;
  Write('Wylosowano liczby: ');
  Write(min, ', ');
  max := min;
  suma := suma+max;

  while (i <= ilosc_liczb-1) do
    begin
      liczba:= Random(100);
      if i < ilosc_liczb-1 then
        Write(liczba, ', ')
      else
        Write(liczba, '.');
      if max < liczba then
        max := liczba;
      if liczba < min then
        min := liczba;
      suma := suma+liczba;
      i := i+1;
    end;

  Writeln;
  Writeln('Najwieksza liczba to ', max, '.');
  Writeln('Najmniejsza liczba to ', min, '.');
  Writeln('Srednia = ', suma/ilosc_liczb:4:2, '.');

  Readln; // czeka na nacisniecie klawisza Enter
end.

